! Loop control variable declared as an INTEGER.
! Refactoring explicitly requires a REAL or DOUBLE
! type to proceed.

PROGRAM IntegerControlVariable
  INTEGER :: counter, sum
  sum = 0
  DO counter = 1, 10, 1        !<<<<< 8, 3, 8, 24, 0, fail-initial
    sum = sum + counter
  END DO
  PRINT *, sum
END PROGRAM IntegerControlVariable
